home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / desktopmagicv3.0a.dms / desktopmagicv3.0a.adf / Install-DM-Floppy < prev    next >
Text File  |  1995-08-22  |  16KB  |  518 lines
  1. ;
  2. ; $VER: DesktopMAGIC Floppy Install Version 1.2 (Aug 20, 1995)
  3. ;
  4. ; Installation Script for DesktopMAGIC
  5. ; ====================================
  6. ;
  7. ; Copyright (c) 1995 by MediaDesk
  8. ;
  9. ; Attention DesktopMAGIC users:
  10. ; =============================
  11. ;
  12. ; You know somebody else who may be interested in purchasing this program
  13. ; for only $39.95*? Maybe a friend, your company, or your user group is
  14. ; interested. Discounted site licences for organizations are available also.
  15. ;
  16. ; Ordering is fast and easy - just have your VISA, MasterCard or
  17. ; American Express Card ready and call 1-800-30-MDESK (1-800-306-3375).
  18. ; Don't forget to ask for sales desk #12!
  19. ;
  20. ; Or simply print, complete and mail/fax the order form in the file
  21. ; "Attention_DM_Users!" on this disk!
  22. ;
  23. ; Important Announcements
  24. ; =======================
  25. ;
  26. ; · Want to get our developer kit to create your own screensaver modules?
  27. ; · Want more information on other MediaDesk products, for example
  28. ;   Cinema4D, the exciting new 3D rendering / raytracing / animation package?
  29. ; · Want free demo disks and information brochures on our products?
  30. ; · Want to save money through special discounts for user groups, organizations,
  31. ;   companies, volume buyers?
  32. ; · Want to take part in our success and become an authorized MediaDesk dealer?
  33. ; · Want to receive our free newsletter for hot infos, special offers and
  34. ;   tips and tricks on our products?
  35. ;
  36. ; Then call 1-800-30-MDESK (1-800-306-3375)!
  37. ;
  38. ; Or rush us a letter:
  39. ;
  40. ; 1875 South Bascom Avenue
  41. ; - Sales Desk #12 -
  42. ; Building 116, Suite 204
  43. ; Campbell, California 95008-2359
  44. ; U.S.A.
  45. ;
  46. ; Or send us a fax at:    (408) 374-7596
  47. ; Or send us e-mail:      mdesk@netcom.com   Internet
  48. ;                         73211,660          CompuServe
  49. ;
  50. ; Whatever is on your mind - don't put it off - contact us TODAY!
  51. ;
  52. ; --
  53. ;
  54. ; (*) Plus $5 s + h. Overnight delivery available. CA residents add 8.25% sales tax.
  55. ; "MediaDesk" and "DesktopMAGIC" are trademarks of MediaDesk. "Commodore" and "Amiga"
  56. ; are registered trademarks of Commodore-Amiga, Inc.
  57. ;
  58.  
  59. ;============================
  60. ;=== English Instructions ===
  61. ;============================
  62.  
  63. (set #introduction
  64.     (cat    "\nWelcome to the DesktopMAGIC floppy installation.\n"
  65.             "Before proceeding, check the file \"Read_me_first!\"\n\n"
  66.             "DesktopMAGIC and a selection of effects, sounds, tunes, "
  67.             "pictures and ANIMs will be installed on one floppy disk.\n\n"
  68.             "NOTE: The installation is almost totally automatic.\n"
  69.             "However, YOU will have to supply an empty, Amiga-formatted "
  70.             "floppy disk - you won't be able to format from this installation.\n\n"
  71.             "\"Proceed\" to continue, \"Abort\" to stop installation."
  72.     )
  73. )
  74.  
  75. (set #askdir-help
  76. (cat    "   First select the floppy disk or drive where DesktopMAGIC "
  77.         "should be installed. Make shure the disk is formatted and empty. "
  78.         "You can format a new floppy disk by selecting \"Format Disk...\" in the "
  79.         "\"Icon\" menu of the Amiga Workbench. "
  80.         "Click on \"Proceed\" to start the installation process.\n\n"
  81.  
  82.         "Explaination of controls:\n\n"
  83.  
  84.         "   The large scrolling field in the middle of the window shows "
  85.         "the contents of the current floppy disk or drawer. Drawers are "
  86.         "marked with the inverted letters \"DRW\" followed by the name. "
  87.         "On the right is a slider where you can scroll through the list of "
  88.         "names if not all names can be displayed at the same time. "
  89.         "You can enter a drawer by clicking on its name.\n\n"
  90.  
  91.       "   \"Parent Drawer\" -- takes you to the higher drawer "
  92.       "hierarchy.\n\n"
  93.  
  94.       "   \"Show Drives\" -- shows internal and external disk and "
  95.       "hard drives which are connected to your machine. Click on the name "
  96.       "to see the contents of that drive.\n\n"
  97.  
  98.       "   \"Make New Drawer...\" -- allows you to create a new drawer. "
  99.       "The new drawer will appear in the directory which you are currently "
  100.       "working in.\n\n"
  101.  
  102.       "   \"Proceed\" -- accepts the new drawer and continues the "
  103.       "installation process.\n\n"
  104.  
  105.       "   \"Abort\" -- stops the installation process at this point. "
  106.       "No further changes will be made.\n\n"
  107.  
  108.       "   \"Help...\" -- brings up this text."))
  109.  
  110. (set #help-startup
  111. (cat "   The file \"user-startup\" is located in the Drawer \"S:\". "
  112.      "It calls all programs that also self-start after booting. "
  113.       "If you click \"Proceed\" DesktopMAGIC will also be called up in "
  114.       "your \"S:user-startup\". Click \"Skip this Part\" if you want to "
  115.       "bypass this part. In that case you will have to start DesktopMAGIC "
  116.       "either manually or by moving it in the \"WBStartup\" drawer on "
  117.       "your boot disk. Please consult your manual on how to do that.\n\n"
  118.  
  119.       "   \"Abort\" stops the whole installation process."))
  120.  
  121. (set #help-delete
  122. (cat    "   The File \"Assigns\" is only necessary if no changes are made to "
  123.         "\"S:user-startup\".\n\n"
  124.         "   Click \"Proceed\" to delete the file \"Assigns\".\n\n"
  125.         "   Click \"Skip this Part\" if you want to bypass this part.\n\n"
  126.         "\"Abort\" stops the whole installation process."))
  127.  
  128. ;(set #startup-help
  129. ;(cat    "Explaination of controls:\n\n"
  130. ;        "\"Install for Real\"\n"
  131. ;        "Starts the actual installation process. New drawers and files\n"
  132. ;        "will be created on the destination volume.\n\n"
  133. ;        "\"Pretend to Install\"\n"
  134. ;        "Goes through every step of the installation process, but\n"
  135. ;        "without touching the destination volume. No files or drawers will be\n"
  136. ;        "created or modified. Use this option if you want to be absolutely shure\n"
  137. ;        "what the installation process will do to the destination volume.\n"
  138. ;        "This is especially useful when used in addition to one\n"
  139. ;        "of the following options:\n\n"
  140. ;
  141. ;        "\"Printer\"\n"
  142. ;        "Outputs a list of all modifications the installer does (resp. pretends to do)\n"
  143. ;        "on the printer.\n\n".
  144. ;
  145. ;        "\"Log File\"\n"
  146. ;        "Outputs a list of all modifications the installer does (resp. pretends to do)\n"
  147. ;        "into a file. After the installation process, you will be told where the file is\n"
  148. ;        "located.\"\n\n"
  149. ;
  150. ;        "\"None\"\n"
  151. ;        "With this option selected, no protocol of the installation process\n"
  152. ;        "will be generated."))
  153.  
  154. (set #no-inst
  155. (cat    "There is not enough space in your chosen directory to copy the DesktopMAGIC "
  156.         "files.\n\n*** Installation aborted ***"))
  157.  
  158. (set #ERRORRAM (cat "The necessary files can't be copied into the RAM disk."))
  159.  
  160. (set #COPVERZ    (cat "\nTo which directory shall DesktopMAGIC be copied?"))
  161.  
  162. (set #which-modules
  163. (cat "Which Effects\nare to be installed?"))
  164.  
  165. (set #which-modules-help
  166. (cat    "Select which effects you would like to have installed on your system. "
  167.     "All effects with a checkmark will be installed when you click \"Proceed\"."))
  168.  
  169. (set #which-hardware
  170. (cat "Which hardware\nwill the effects be used with?"))
  171.  
  172. (set #which-hardware-help
  173. (cat "Explaination of controls:\n\n"
  174.       "\"   OCS/ECS/AA\" -- "
  175.       "Only those effects will be installed that run on OCS/ECS/AA systems "
  176.       "(Amiga 500, 600, 1000, 1200, 1500, 2500, 3000, 4000).\n\n"
  177.       "\"   Graphic Card\" -- "
  178.       "Only those effects will be installed that run on Amigas with additional graphic card.\n\n"
  179.       "\"   All Effects\" -- "
  180.       "All effects will be installed."))
  181.  
  182. (set #MAGICSIZE    1)
  183. (set #DesktopMSize  1)
  184.  
  185. (set @abort-button "Abort")
  186. (set @language "English")
  187.  
  188. (Procedure Inst_NormFiles
  189.     (if (< (getdiskspace @Dest) @Size)
  190.         (abort #no-inst))
  191.  
  192.     (set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
  193.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
  194. )
  195.  
  196. (Procedure Inst_PatternFiles
  197.     (if (< (getdiskspace @Dest) @Size)
  198.         (abort #no-inst))
  199.  
  200.     (set @anzeige (cat "Copying "@FName" from "@SOURCE" \nto "@Dest))
  201.     (copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
  202. )
  203.  
  204. (Procedure Inst_LhaFiles
  205.     ;(set @In_File (tackon @Source @FName.lha))
  206.     (set @TMP (tackon "RAM:" @FName.lha))
  207.     (set @Dest_File (tackon @default-dest @Dest))
  208.     (if                                          ; Verzeichnis erzeugen
  209.         (= (exists @Dest_File) 0)
  210.         (makedir (@Dest_File)(infos))
  211.     )
  212.  
  213.     (if (< (getdiskspace @Dest_File) @Size)
  214.         (abort #no-inst))
  215.  
  216.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  217.     (working @Working @Dest)
  218.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  219.     (delete @TMP)
  220. )
  221.  
  222. (Procedure Inst_LhaFilesnew
  223.     ;(set @In_File (tackon @Source @FName.lha))
  224.     (set @TMP (tackon "RAM:" @FName.lha))
  225.     (set @Dest_File (tackon @default-dest @Dest))
  226.     (makedir (@Dest_File)(infos))
  227.  
  228.     (if (< (getdiskspace @Dest_File) @Size)
  229.         (abort #no-inst))
  230.  
  231.     (copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
  232.     (working @Working @Dest)
  233.     (run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
  234.     (delete @TMP)
  235. )
  236.  
  237. ;--------------------------------------------------------------------------
  238. ; Here we go...
  239. ;--------------------------------------------------------------------------
  240.  
  241. (message #introduction)
  242. (welcome)
  243. (set old_level @user-level)
  244.  
  245. (complete 0)
  246.  
  247. (set @default-dest                           ; Choose DesktopMAGIC directory
  248.     (askdir
  249.         (prompt #COPVERZ)
  250.         (help    #askdir-help)
  251.         (default "DF1:")
  252.     )
  253. )
  254.  
  255. (if                                          ; Create directory
  256.     (= (exists @default-dest) 0)
  257.     (makedir @default-dest)
  258. )
  259.  
  260. ;--------------------------------------------------------------------------
  261. ; Ask for disk 1
  262. ;--------------------------------------------------------------------------
  263.  
  264. (askdisk
  265.     (prompt "\n\n\nPlease insert the disk labeled \"DesktopMAGIC 1\".")
  266.     (help
  267.         "   Please insert the disk \"DesktopMAGIC 1\" into any floppy drive "
  268.         "and click on \"Proceed\" to install the actual program, "
  269.         "the effects, the tunes, the animated sequences, the pictures "
  270.         "and the sounds on the first disk.\n\n"
  271.     )
  272.     (dest "DesktopMAGIC_1")
  273. )
  274.  
  275. ;--------------------------------------------------------------------------
  276. ; Copy DesktopMAGIC, DM_Prefs & Read_me_first! & Attention_DM_Users! files
  277. ;--------------------------------------------------------------------------
  278.  
  279. (
  280.     (set @Source "DesktopMAGIC_1:")
  281.     (set @Dest @default-dest)
  282.    (set @FName "DesktopMAGIC")
  283.     (set @Size #MAGICSIZE)
  284.     (Inst_NormFiles)
  285. )
  286.  
  287. (
  288.     (set @Source "DesktopMAGIC_1:")
  289.     (set @Dest @default-dest)
  290.    (set @FName "DM_Prefs")
  291.     (set @Size #MAGICSIZE)
  292.     (Inst_NormFiles)
  293. )
  294.  
  295. (
  296.     (set @Source "DesktopMAGIC_1:")
  297.     (set @Dest @default-dest)
  298.    (set @FName "Read_me_first!")
  299.     (set @Size #MAGICSIZE)
  300.     (Inst_NormFiles)
  301. )
  302.  
  303. (
  304.     (set @Source "DesktopMAGIC_1:")
  305.     (set @Dest @default-dest)
  306.    (set @FName "Attention_DM_Users!")
  307.     (set @Size #MAGICSIZE)
  308.     (Inst_NormFiles)
  309. )
  310.  
  311. (
  312.     (set @Source "DesktopMAGIC_1:")
  313.     (set @Dest @default-dest)
  314.    (set @FName "disk.info")
  315.     (set @Size #MAGICSIZE)
  316.     (Inst_NormFiles)
  317. )
  318.  
  319. ;--------------------------------------------------------------------------
  320. ; Copy rct.library for requesters and user interface
  321. ;--------------------------------------------------------------------------
  322.  
  323. (copylib
  324.     (prompt "Copying the \"rct.library\"...")
  325.     (help "The rct.library is needed to generate standard requesters."
  326.       "If this library is already installed on your boot disk, "
  327.         "it may be updated if necessary with the latest version here.\n\n"
  328.         @copyfiles-help
  329.     )
  330.     (source "DesktopMAGIC_1:libs/rct.library")
  331.     (dest "Libs:")
  332.     (confirm)
  333. )
  334.  
  335. ;--------------------------------------------------------------------------
  336. ; Copy Muchmore & PlayHSN
  337. ;--------------------------------------------------------------------------
  338.  
  339. (if
  340.    (= (exists "C:MuchMore") 0)
  341.     (copyfiles
  342.         (help @copyfiles-help)
  343.         (source "DesktopMAGIC_1:C")
  344.         (dest "C:")
  345.        (choices "MuchMore")
  346.     )
  347. )
  348.  
  349. (if
  350.    (= (exists "C:PlayHSN") 0)
  351.     (copyfiles
  352.         (help @copyfiles-help)
  353.         (source "DesktopMAGIC_1:C")
  354.         (dest "C:")
  355.        (choices "PlayHSN")
  356.     )
  357. )
  358.  
  359. (complete 5)
  360.  
  361. ;--------------------------------------------------------------------------
  362. ; Copy Sounds, Tunes, Pictures and Animations from Disk 1
  363. ;--------------------------------------------------------------------------
  364.  
  365. (
  366.     (set @Source "DesktopMAGIC_1:")
  367.     (set @Dest @default-dest)
  368.     (set @Size #MAGICSize)
  369.  
  370.    (set @Pattern "DM_Sounds")        (Inst_PatternFiles)    (complete 10)
  371.    (set @Pattern "DM_Tunes")        (Inst_PatternFiles)    (complete 15)
  372.    (set @Pattern "DM_Pictures")    (Inst_PatternFiles)    (complete 20)
  373.    (set @Pattern "DM_Anim")        (Inst_PatternFiles)    (complete 25)
  374. )
  375.  
  376. ;--------------------------------------------------------------------------
  377. ; Ask for hardware
  378. ;--------------------------------------------------------------------------
  379.  
  380. (set hardware
  381.     (askchoice
  382.         (prompt #which-hardware)
  383.         (help #which-hardware-help)
  384.         (choices
  385.             "OCS/ECS/AA"
  386.             "Graphic Card"
  387.             "All Effects"
  388.         )
  389.         (default 2)
  390.     )
  391. )
  392.  
  393. ;--------------------------------------------------------------------------
  394. ; Install ALL effects from disk 1
  395. ;--------------------------------------------------------------------------
  396.  
  397. (if (or (= 0 hardware) (= 2 hardware))
  398.     (
  399.         (set @Source "DesktopMAGIC_1:")
  400.         (set @Dest @default-dest)
  401.         (set @Size #MAGICSize)
  402.        (set @Pattern "DM_Effects") (Inst_PatternFiles)
  403.     )
  404. )
  405.  
  406. ;--------------------------------------------------------------------------
  407. ; Install only graphic card compatible effects from disk 1
  408. ;--------------------------------------------------------------------------
  409.  
  410. (if (= 1 hardware)
  411.     (copyfiles
  412.         (source (cat "DesktopMAGIC_1:DM_Effects"))
  413.        (dest (tackon @default-dest "DM_Effects"))
  414.        (pattern
  415.             (cat
  416.                 "(%"
  417.                 "CrazyWorms.#?|"
  418.                 "Clock.#?|"
  419.                 "Eyes.#?|"
  420.                 "Meltdown.#?|"
  421.                 "Mountain.#?|"
  422.                 "MyPicture.#?|"
  423.                 "Puzzle.#?|"
  424.                 "Spotlights.#?"
  425.                 ")"
  426.             )
  427.         )
  428.     )
  429. )
  430.  
  431. (if (or (= 0 hardware) (= 2 hardware))
  432.  
  433.     (set @Source "DesktopMAGIC_1:")
  434.     (set @Dest @default-dest)
  435.     (set @Size #MAGICSize)
  436.    (set @Pattern "DM_Effects") (Inst_PatternFiles)
  437. )
  438.  
  439. (complete 33)
  440.  
  441. ;--------------------------------------------------------------------------
  442. ; Effects successfully installed.
  443. ; If we are running under Kickstart 1.3, delete effects that won't run.
  444. ;--------------------------------------------------------------------------
  445.  
  446. (if (< (/ (getversion) 65536) 35)
  447.     (
  448.          (set effpath (tackon @default-dest "DM_Effects"))
  449.  
  450.          (delete (tackon effpath "Flying Breakfast.mpf"))
  451.          (delete (tackon effpath "Flying Breakfast.mod"))
  452.  
  453.          (delete (tackon effpath "CheckeredRace.mpf"))
  454.          (delete (tackon effpath "CheckeredRace.mod"))
  455.  
  456.          (delete (tackon effpath "Cockroaches.mpf"))
  457.          (delete (tackon effpath "Cockroaches.mod"))
  458.  
  459.          (delete (tackon effpath "Curtain.mpf"))
  460.          (delete (tackon effpath "Curtain.mod"))
  461.  
  462.          (delete (tackon effpath "Tunnel.mpf"))
  463.          (delete (tackon effpath "Tunnel.mod"))
  464.     )
  465. )
  466.  
  467. ;--------------------------------------------------------------------------
  468. ; Ask for user-startup modification - if yes, change it
  469. ;--------------------------------------------------------------------------
  470.  
  471. (set changechoice
  472.     (askchoice
  473.         (prompt "\nDo you like to have DesktopMAGIC automatically loaded after booting?\n"
  474.         "A new command will be inserted into the user-startup if you choose \"Yes\".")
  475.         (help @askchoice-help)
  476.         (choices "Yes" "No")
  477.         (default 0)
  478.     )
  479. )
  480.  
  481. (set command1 (tackon @default-dest "DesktopMAGIC"))
  482.  
  483. (if (not changechoice)
  484.     (    
  485.         (set command1.txt
  486.             (cat 
  487.                  "\n\n\nTo have DesktopMAGIC automatically loaded after booting,"
  488.               "a new command \"" command1 "\" must be inserted into \"S:user-startup\"."
  489.             )
  490.         )
  491.         (startup "DesktopMAGIC"
  492.             (prompt command1.txt)
  493.             (help #help-startup)
  494.             (command command1)
  495.         )
  496.     )
  497. )
  498.  
  499. (complete 100)
  500.  
  501. ;--------------------------------------------------------------------------
  502. ; That's it - we're outta here!
  503. ;--------------------------------------------------------------------------
  504.  
  505. (message (cat 
  506.     "\nIf there is no line \"" command1 "\"\n"
  507.     "in your \"S:user-startup\" you will have to insert it manually - or consult your manual "
  508.     "on how to put DesktopMAGIC into the \"WBStartup\" drawer.\n\n"
  509.    "Please remove the installation disk(s) now and start DesktopMAGIC - "
  510.     "either double-click on its icon or re-boot your system.\n\n"
  511.     "To access the Main Window, select \"DesktopMAGIC\" in the Workbench \"Tools\" menu "
  512.     "or press <SHIFT-F1>.\n\n"
  513.    "Have fun now with your \"DesktopMAGIC\" Amiga!")
  514. )
  515.  
  516. (exit)
  517.  
  518.